MacWorld 1997 September/Macworld (1997-09).dmg/Serious Software/Cherwell Scientific Demos/pro Fit/pro Fit 5.0 demo (fpu).sea/pro Fit 5.0 demo (fpu)/Examples/Programming - intro/Copy Selection

Text File | 1996-03-30 | 822b | 24 lines

{ This is an interface-less, very simple example for a program that }
{ copies all selected data points in column 1 to column 2. }
{ To use the program, choose "Add to Menu" from the Misc menu to compile it }
{ Then open a data window (if none is open) and select the points to be copied. }
{ Then run the program by choosing "CopySelection" from the misc menu. }

program CopySelection;

const
  sourceCol = 1;  { source column }
  destCol = 2;      { destination column }

var sourceRow, destRow:integer;

begin
    destRow:=1;
    for sourceRow := 1 to NrRows do
        if CellSelected(sourceRow, sourceCol) and DataOK(sourceRow,sourceCol) then begin
          { if the cell in the source row is selected and not empty: }
                data[destRow,destCol]:=data[sourceRow,sourceCol]; { copy the value }
                destRow:=destRow+1;
        end;
end;